unit uMostraVisita;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FMTBcd, rpcompobase, rpvclreport, XPMenu, DB, DBClient,
  Provider, SqlExpr, dxCore, dxButton, Grids, DBGrids, StdCtrls, Mask,
  DBCtrls, ExtCtrls;

type
  TfmostraVisita = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    BitBtn5: TdxButton;
    BitBtn6: TdxButton;
    sdsVisita: TSQLDataSet;
    sdsVisitaCOD_IMALU: TIntegerField;
    sdsVisitaCOD_IMOBILIARIA: TStringField;
    sdsVisitaNR: TStringField;
    sdsVisitaVISITA: TStringField;
    sdsVisitaCOD_INTERESSADO: TIntegerField;
    sdsVisitaDATAVISITA: TDateField;
    sdsVisitaRUA: TStringField;
    dspvisita: TDataSetProvider;
    cdsVisita: TClientDataSet;
    cdsVisitaCOD_IMALU: TIntegerField;
    cdsVisitaCOD_IMOBILIARIA: TStringField;
    cdsVisitaNR: TStringField;
    cdsVisitaVISITA: TStringField;
    cdsVisitaCOD_INTERESSADO: TIntegerField;
    cdsVisitaDATAVISITA: TDateField;
    cdsVisitaRUA: TStringField;
    dstVisita: TDataSource;
    XPMenu1: TXPMenu;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    sdsVisitaNOME: TStringField;
    cdsVisitaNOME: TStringField;
    sdsVisitaCPF: TStringField;
    sdsVisitaRG: TStringField;
    cdsVisitaCPF: TStringField;
    cdsVisitaRG: TStringField;
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
     codInteressado : integer;
    { Public declarations }
  end;

var
  fmostraVisita: TfmostraVisita;

implementation

uses UDM;

{$R *.dfm}

procedure TfmostraVisita.BitBtn5Click(Sender: TObject);
begin
  cdsVisita.First;
  while not cdsVisita.Eof do
  begin
      cdsVisita.Edit;
      cdsVisitaCOD_INTERESSADO.Clear;
      cdsVisitaVISITA.Clear;
      cdsVisitaDATAVISITA.Clear;
      cdsVisita.ApplyUpdates(0);
      cdsVisita.Next;
  end;
  cdsVisita.Close;
  close;
end;

procedure TfmostraVisita.FormShow(Sender: TObject);
begin
   if (cdsVisita.Active) then
      cdsVisita.Open;
   cdsVisita.Params[0].AsInteger := codInteressado;
   cdsVisita.Open;
end;

procedure TfmostraVisita.BitBtn6Click(Sender: TObject);
begin
  close;
end;

end.
